mid.hoods <- subset(hmt, hmt.tier %in% c("lower middle", "upper middle"))
bins <- c(seq(0, 1, 0.2))
pal <- colorBin("YlOrRd", domain = mid.hoods$Percent_Owner.2016, bins = bins)
leaflet() %>%
setView(lng = -76.6, lat = 39.3, zoom = 11) %>%
addProviderTiles(providers$Stamen.TonerLite) %>%
addPolygons(data = mid.hoods,
fillColor = ~pal(mid.hoods$Percent_Owner.2016),
color = iteam.colors[2],
weight = 1,
fillOpacity = .6,
label = ~as.character(round(mid.hoods$Percent_Owner.2016, 2))) %>%
addPolygons(data = hoods,
weight = 2,
color = "black",
opacity = 0.5,
fillOpacity = 0,
label = ~hoods$label)
LS0tDQp0aXRsZTogIkhvbWVvd25lcnNoaXAgUmF0ZXMgaW4gTWlkZGxlIE5laWdoYm9yaG9vZHMiDQphdXRob3I6ICJKdXN0aW4gRWxzemFzeiwgTWF5b3IncyBPZmZpY2Ugb2YgSW5ub3ZhdGlvbiINCmVtYWlsOiAianVzdGluLmVsc3phc3pAYmFsdGltb3JlY2l0eS5nb3YiDQpkYXRlOiAiVGh1cnNkYXksIEZlYnJ1YXJ5IDI4LCAyMDE5Ig0Kb3V0cHV0Og0KICBodG1sX25vdGVib29rOg0KICAgIGNvZGVfZm9sZGluZzogaGlkZQ0KICAgIGZpZ19oZWlnaHQ6IDUNCiAgICBmaWdfd2lkdGg6IDEwDQogICAgdG9jOiB5ZXMNCiAgICB0b2NfZGVwdGg6IDINCi0tLQ0KDQpgYGB7ciBzZXR1cCwgaW5jbHVkZSA9IEZBTFNFLCBlY2hvID0gRkFMU0UsIG1lc3NhZ2UgPSBGQUxTRSwgY2FjaGUgPSBUUlVFfQ0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGVjaG8gPSBGQUxTRSwgd2FybmluZyA9IEYsIG1lc3NhZ2UgPSBGLCBpbmNsdWRlID0gVCwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZpZy53aWR0aCA9IDEwLCBmaWcuaGVpZ2h0ID0gNSkNCmBgYA0KIA0KYGBge3IgaW5jbHVkZSA9IEZ9DQpzb3VyY2UoIi4uL3NyYy8wMF9pbml0aWFsaXplLlIiKQ0KbGlicmFyeShsZWFmbGV0KQ0KaG10IDwtIGxvYWRfYmxvY2tfZ3JvdXBfZGF0YShsb2FkLmNhY2hlID0gVCkNCmhvb2RzIDwtIGdldF9uZWlnaGJvcmhvb2RfYm91bmRhcmllcygpDQpgYGANCg0KYGBge3Igb3V0LndpZHRoPSIxMDAlIiwgZmlnLndpZHRoPTh9DQptaWQuaG9vZHMgPC0gc3Vic2V0KGhtdCwgaG10LnRpZXIgJWluJSBjKCJsb3dlciBtaWRkbGUiLCAidXBwZXIgbWlkZGxlIikpDQoNCmJpbnMgPC0gYyhzZXEoMCwgMSwgMC4yKSkNCnBhbCA8LSBjb2xvckJpbigiWWxPclJkIiwgZG9tYWluID0gbWlkLmhvb2RzJFBlcmNlbnRfT3duZXIuMjAxNiwgYmlucyA9IGJpbnMpDQoNCmxlYWZsZXQoKSAlPiUNCiAgc2V0VmlldyhsbmcgPSAtNzYuNiwgbGF0ID0gMzkuMywgem9vbSA9IDExKSAlPiUNCiAgYWRkUHJvdmlkZXJUaWxlcyhwcm92aWRlcnMkU3RhbWVuLlRvbmVyTGl0ZSkgJT4lIA0KICBhZGRQb2x5Z29ucyhkYXRhID0gbWlkLmhvb2RzLCANCiAgICAgICAgICAgICAgZmlsbENvbG9yID0gfnBhbChtaWQuaG9vZHMkUGVyY2VudF9Pd25lci4yMDE2KSwgDQogICAgICAgICAgICAgIGNvbG9yID0gaXRlYW0uY29sb3JzWzJdLCANCiAgICAgICAgICAgICAgd2VpZ2h0ID0gMSwgDQogICAgICAgICAgICAgIGZpbGxPcGFjaXR5ID0gLjYsDQogICAgICAgICAgICAgIGxhYmVsID0gfmFzLmNoYXJhY3Rlcihyb3VuZChtaWQuaG9vZHMkUGVyY2VudF9Pd25lci4yMDE2LCAyKSkpICU+JQ0KICBhZGRQb2x5Z29ucyhkYXRhID0gaG9vZHMsIA0KICAgICAgICAgICAgICB3ZWlnaHQgPSAyLCANCiAgICAgICAgICAgICAgY29sb3IgPSAiYmxhY2siLA0KICAgICAgICAgICAgICBvcGFjaXR5ID0gMC41LA0KICAgICAgICAgICAgICBmaWxsT3BhY2l0eSA9IDAsIA0KICAgICAgICAgICAgICBsYWJlbCA9IH5ob29kcyRsYWJlbCkNCg0KYGBgDQoNCg0K